home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / HyperCard / CambridgeMedlineTutor / ccMedTut2 / card_68803.txt < prev    next >
Encoding:
Text File  |  1992-02-24  |  2.7 KB  |  123 lines
  1. -- card: 68803 from stack: in
  2. -- bmap block id: 69117
  3. -- flags: 0000
  4. -- background id: 11419
  5. -- name: 
  6. ----- HyperTalk script -----
  7. On Opencard
  8.   put empty into card field "blue"
  9. End Opencard
  10.  
  11. On ReturnKey
  12.  
  13.   global TVar
  14.   put quote & "smoking:th" & quote & " or " & quote & "smoking:pc" & quote into TVar
  15.   TypeChar
  16.  
  17.   click at 400,400
  18.  
  19.   repeat 4 times
  20.     --lock screen
  21.     go next
  22.     --unlock screen with dissolve
  23.     wait 20
  24.   end repeat
  25.  
  26.   go next
  27.  
  28.   --for card with 3 dots, 2 flashing -SEARCHING . . .
  29.   Repeat 5 times
  30.     hide card field id 19
  31.     wait 10
  32.     show card field id 19
  33.     wait 50
  34.   end repeat
  35.  
  36.   Repeat 3
  37.     go next
  38.     wait 20
  39.   End repeat
  40.  
  41.   UnDissolve
  42.  
  43. End ReturnKey
  44.  
  45.  
  46.  
  47.  
  48. -- part 1 (field)
  49. -- low flags: 00
  50. -- high flags: 0000
  51. -- rect: left=17 top=92 right=110 bottom=486
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 0
  55. -- font id: 3
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: blue
  60.  
  61.  
  62. -- part 5 (field)
  63. -- low flags: 00
  64. -- high flags: 2004
  65. -- rect: left=2 top=116 right=325 bottom=139
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 0
  69. -- font id: 3
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 18
  73. -- part name: red
  74.  
  75.  
  76. -- part 7 (field)
  77. -- low flags: 00
  78. -- high flags: 0000
  79. -- rect: left=146 top=270 right=288 bottom=209
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 0
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 2048
  86. -- line height: 16
  87. -- part name: 
  88.  
  89.  
  90. -- part contents for card part 5
  91. ----- text -----
  92.    Now, to broaden our search on            'smoking cessation' let's search for articles on either "Smoking:TH" or "Smoking:PC" as MeSH terms. The search will run automatically [Hit RETURN].  
  93.  
  94. -- part contents for card part 7
  95. ----- text -----
  96. Search
  97.  
  98. -- part contents for background part 3
  99. ----- text -----
  100. Search Menu
  101.  
  102. -- part contents for background part 5
  103. ----- text -----
  104. card id 33182
  105.  
  106. -- part contents for background part 7
  107. ----- text -----
  108.  
  109.  
  110. xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  111.  
  112. -- part contents for background part 8
  113. ----- text -----
  114. 33182
  115.  
  116. -- part contents for background part 13
  117. ----- text -----
  118.  
  119.  
  120.  
  121. -- part contents for card part 1
  122. ----- text -----
  123. "smoking:th" or "smoking:pc"